-- card: 4270 from stack: in
-- bmap block id: 2990
-- flags: 0000
-- background id: 3586
-- name: Install ResCopy


-- part 23 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=23 top=125 right=330 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 17
-- part name: Explain


-- part 28 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=303 top=189 right=213 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install ResCopy in Home
----- HyperTalk script -----
on mouseUp
  if the version > 1.1 then
    put true into newvers
  else
    put false into newvers
  end if
  answer "Install ResCopy in your Home stack?" with "OK" or "Cancel"
  put it into theAnswer
  if theAnswer is "OK" then
    put trim(the long name of stack "Home") into toFile

    put trim(the long name of this stack) into fromFile

    if (toFile is not empty) and (fromFile is not empty) then
      ResCopy fromFile, toFile, "DITL", 10001
      if newvers then set cursor to busy
      if the result is not empty then
        answer "There was an error trying to install ResCopy" with "OK"
        exit mouseUp
      end if
      ResCopy fromFile, toFile, "DLOG", 10001
      if newvers then set cursor to busy
      ResCopy fromFile, toFile, "DITL", 10000
      if newvers then set cursor to busy
      ResCopy fromFile, toFile, "DLOG", 10000
      if newvers then set cursor to busy
      ResCopy fromFile, toFile, "XCMD", 10000
      if newvers then set cursor to busy
      Answer "ResCopy is installed." with "OK"
    end if
  end if
end mouseUp

function trim name
delete char 1 to (the length of ("stack" && quote)) of name
delete last char of name
return name
end trim




-- part 29 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=303 top=304 right=328 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install ResCopy in stack
----- HyperTalk script -----
on mouseUp
  if the version > 1.1 then
    put true into newvers
  else
    put false into newvers
  end if

  put FileName("STAK","Choose a stack into which to install ResCopy…") into toFile

  if toFile is empty then exit mouseup

  put trim(the long name of this stack) into fromFile

  set lockmessages to true
  push card
  go to stack toFile
  answer "Install ResCopy in this stack?" with "OK" or "Cancel"
  pop card
  set lockmessages to false
  put it into foo

  if foo is empty or foo is "Cancel" then exit mouseup

  if (toFile is not empty) and (fromFile is not empty) then
    ResCopy fromFile, toFile, "DITL", 10001
    if newvers then set cursor to busy
    if the result is not empty then
      answer "There was an error trying to install ResCopy" with "OK"
      exit mouseUp
    end if
    ResCopy fromFile, toFile, "vers", 1
    if newvers then set cursor to busy
    ResCopy fromFile, toFile, "vers", 2
    if newvers then set cursor to busy
    ResCopy fromFile, toFile, "DLOG", 10001
    if newvers then set cursor to busy
    ResCopy fromFile, toFile, "DITL", 10000
    if newvers then set cursor to busy
    ResCopy fromFile, toFile, "DLOG", 10000
    if newvers then set cursor to busy
    ResCopy fromFile, toFile, "XCMD", 10000
    if newvers then set cursor to busy
    Answer "ResCopy is installed." with "OK"
  end if
end mouseUp

function trim name
delete char 1 to (the length of ("stack" && quote)) of name
delete last char of name
return name
end trim



-- part 31 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=140 top=120 right=323 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  hide the target
end mouseUp


-- part contents for card part 23
----- text -----
your HyperCard stacks are for your use alone, and you always use the same Home stack.
Example: A HyperCard user who always uses the same Macintosh.




your HyperCard stack might be used on a Macintosh system with HyperCard other than your own.
Example: A HyperCard developer who works at different sites and/or on a different Macintosh.

-- part contents for card part 31
----- text -----

Use this card to install ResCopy, a resource copier tool which can be used to copy resources (sounds, icons, pictures, etc.) into any stack you choose.  

Once you decide which stack 
(Home or other) will be installed with the resources, just click on the appropriate button.